home *** CD-ROM | disk | FTP | other *** search
/ Aminet 32 / Aminet 32 (1999)(Schatztruhe)[!][Aug 1999].iso / Aminet / comm / ums / UMS11_9_beta.lha / UMS / Bin / umscopy.v40 < prev    next >
AmigaDOS Script File  |  1999-03-14  |  758b  |  38 lines
  1. .key FILE/A,MSGID/A,UMSNAME/A,RESULTVAR/A
  2. .bra {
  3. .ket }
  4.  
  5. ; $Id: umscopy.v40,v 1.2 1999/03/14 09:18:49 andre Exp $
  6.  
  7. failat 10
  8. set destdir `getenv umsfiles.{UMSNAME}`
  9.  
  10. if not `echo len 1 $destdir` eq :
  11.   if not `echo len 1 $destdir` eq /
  12.     set destdir $destdir/
  13.   endif
  14. endif
  15. set newfile `list "{FILE}" quick lformat "$destdir%n"`
  16.  
  17. if exists "$newfile"
  18.   set i 1
  19.   lab loop
  20.   if exists "$newfile.$i"
  21.     set i `eval $i + 1`
  22.     skip loop back
  23.   endif
  24.   set newfile "$newfile.$i"
  25. endif
  26.  
  27. failat 21
  28. echo "trying to make link of *"{FILE}*" to *"$newfile*" .."
  29. makelink "$newfile" "{FILE}" hard
  30. if error
  31.   failat 10
  32.   echo "copying *"{FILE}*" to *"$newfile*" .."
  33.   copy "{FILE}" "$newfile" clone
  34. endif
  35. filenote "$newfile" "{MSGID}"
  36.  
  37. setenv {RESULTVAR} "$newfile"
  38.